      real tc(12)
      integer it(12)
      character*12 id/'617109620002'/

      open(1,file='t_hohenpeissenberg',form='formatted')
      open(2,file='v2.hohenpeissenberg',form='formatted')

      read(1,*)
   10 read(1,*,end=100) iyr,tc
      do m=1,12
      it(m)=nint(10.*tc(m))
      end do
      write(2,'(a12,i4,12i5)') id,iyr,it
      if(iyr.lt.2002) go to 10   ! 2002 last full year

  100 stop
      end
